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} S8-BIT PRODUCTS 
194@ - FPS INcoRPoRATED. 
MADE FLOATING POINT B/W | 
11994 - AP-12OB > For minis 
@38-BIT ACCURACY (8p.p.) 
eG@ MHz Clock 16 nsec. 
010 ops. /cycte 260 MIPS | 
=> 1 MFLOPS 
1976 - AP-19@L ° For MAIN’s 
198@ - FPS-10@ > FoR MINIS 


e 48- BIT ACCURACY 
04 MHz CLOCK @ 250 nsec 


1981 —- AP-18OV > For VAX + 
DR#80 


38-BlT PRODUCTS 


1983- FPS-5@0O Fancy 
© ContRot Processor BASED 
VPON EARLIER PRODUCTS 


e Optiona ARitHMeric 
Co PROCESSORS : 


- 52-BIT ACCURACY 


- 4Q MFLOPS EACH 


64-BIT PRODUCTS 


1981 - FPS-164 
@ “ATTACHED SCIENTIFIC 


C Anni iT " 
COMPUTER WITH ON- 


BOARD DIAGNOSTICS 


® G4- BIT ACCURACY = 
45.5 DECIMAL DIGITS 


© 182 nsec/cycLe 
®* 55 MIPS oR 44 MFLOPS 


© OPTIONAL B/W ALLOWS 
UP TO 341 MFLOPS 
(FPS-164 /MAX ) 


PRESENTATION SUMMARY 


Traditional 


pe 


TYPICAL COMPUTER ELEMENTS 


: FPS 4/84 


MEMORY 


single bus provides a pathway for 
access fo alll parts. 


FPS 4/81 


MEMORY 


4.Each device must perform multiple functions. 
2.Single bus limits access fo all devices. 


ADD TWO NUMBERS (Assembly Level) 


C=A+B 
LD RIA “Load A into R4 
ADD R%4,B "Add A and B 


ST RIC "Store answer in C 


al 


MEMORY 


Fetch INST 4 
AccessDataA LD RIA 
Fetch INST 2 
Acess Data B ADD R‘4,B 
Fetch INST 3 


AccessDataC ST RAC 


3 Data references + 3 instruction loads = 6 total 


BUILD AN FPS-164 
ATTACHED PROCESSOR 


FPS 4/81 


Zl 


Work 
Registers 
(DATA PADS) 


FLOATING ADDER 


FLOATING MULTIPLIER 


l 


Hl 


FPS 4/81 


I 


Branch 
Data Pad 


Multiplier 
Memory 


Primary Instruction Word Groups 


22 23 31 32 


FUNCTIONAL UNIT CONTROLLED 


Address unit (SPAD) 
Adder unit (FA) 
Control unit (short branches) 


Data registers (X/Y), 
Data Pad Bus (DPBS) 


Multiplier (FM) 


Main memory address, and store data source 
Table memory address 
Data Pad base address 


¢\ 
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INSTRUCTION SET OVERVIEW 


Aggregate capability functional units per 
482 nsec CPU cycle 

¢ wo Data Computations 

¢ Iwo Memory Accesses 

- An Address Computation 

¢ Four Data Register Accesses 

¢ A Conditional Branch 
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FPS-164 Attached Processor Architectural Features 


FPS-164 
D64. DISK SUBSYSTEM 


e Consists of adapter, controller, 
plus drives 


e 135MB Winchester drives 
e Up fo four drives per subsystem 
e Up To six subsystems per 164 
(3 Gigabytes) 
e Required for SJE 
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FPS-164 Attached Processor Architectural Features 


FPS-164. 


e Rotational soeed 
e Average latency 

e Average seek time 
e Tracks per cylinder 
e Cylinders per drive 
e Density | 
e Secfor size 


D64 DISK SUBSYSTEM 


3600 RPM 
8.33 MS 


823 
6220 BPI 
912 B 


OF 


FPS-164 Attached Processor Architectural Features 


DIAGNOSTIC PROCESSOR 


e Micro-processor and floppy disk 

¢ Multiple-level diagnostic routines 

e Independent Diagnostic Bus 

e On-line logging of errors 

e Board-level replacement strategy 
— @ Remote diagnostic capability 
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FPS-164 Attached Processor Architectural Features 


REMOTE DIAGNOSTIC CAPABILITY 


Ce nn ee a 


e FPS supplies VI1O1 Terminal 

e FPS supplies modem 

e Customer supplies phone 

e Customer supplies RS232 cable 


e For IBM... ASCII port must be 
defined in the operating system 


SOFTWARE 


CONCEPT)S 


yA 


LOOP IN LINEAR FORM 


LOOP IN PARALLEL FORM 
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FPS-164 Attached Processor Architectural Features 


DEFINITION: SOFTWARE PIPELINE 


A Software Pipeline is a software 
construct whereby multiple 
elements of an array are 
concurrently being processed, 
and each element is at a 
different stage of processing. 


t 


Iteration 


“PIPELIN 


ba 
a: 


i 
£ 


oc 


§et2 
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THE SETUP 


> Entry Po int 
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Serial Execution 


Serial 


ee 


pte ee 


Vs. 


Parallel Execution 


© APPROACHES: 
1 - Entire Poem. ON 164 
| - Host Resivent Mainuine 
| Caus 464 SuBROUTINES 
e CHOICES: 

© ae 

- APEXG4 


ADC MODE OF OPERATION (APEX64 ) 


User Controlled Automatic AP 
Host Processing Host Processing Processing 


eee ene EET eee eee ARREARS [AUEES laureate MOO 
Fam. Execution Within the Host (Only Fam yeeution Within The AP 


ye 


(APEX64 ONLY) 
OVERLAPPING DATA TRANSFER AND AP EXECUTION 
ADC Method est Execute cei 
AP SOUS. beh ae 


Routine §& 


Transfer Transfer 
Datato Execute Results 
AP Routine to Host | 


Routine 
2 


ee Transfer Transfer 
UDC Method batato Execute Datato 


to Host 


Routine Freon Le 
Transfer Transfer 
Datato Execute Results 
Routine to Host 


Routine 
2 


Time -——— 


VAX/VMS PDS FLOWCHART 
V V 


MAINLINE | ie — sar a SOUR( 
( .FoR ) FOR SRC 


APFORTRANG4 APAL64 


ge - 7 ed ae air ta con 
. AOB 


APLINKG4 


SYmBoL TABLE 
\y ¢ » ASY 


Y APSIM64/ 
: APDEBUG64 | 
AP LOAD : 
MODULE | 
( .IMG ). 


HOST 
OBJECT 


EXECUTABLE 
“PROGRAM 


by 


IBM/CMS PDS FLOWCHART 


APFINGY SOURCE 
( APFTNGY ) 


APFORTRANG4 | 


AP OBYECT cone 
CapTxTo4 ) 


APLINK64 


SYmBoL TABLE 
\/ ( APSMBGH ) 


APSIM64/ | 
| APDEBUGG64 | 
HOST | | 
COMPILER AP LOAD 
MODULE SJE 


( APIMGG4) {| 


AINLINE 


APALGYH SOURCE 
FORTRAN ) 


( APALGY ) 


APAL64 


AP OBTECT CODE 
CAPTX1TGH ) 


HAS LI 
( FORTRAN ) \/ 


HOST 
OB SECT 


HOST 
LINKER 


EXECUTABLE 
“PROGRAM 


4. APFING4 


Gp gap ap as@ 3 o=e e== ane 


“EXTENSION OF FTN-37 | 
* CROSS- COMPILER 
+2 PGM. DESIGNS: 


A. AP-RESIDENT SUBKODTINES | 
CONTROLLED BY HOST-RES. 
MAINLINE CAPEX64] 


B. A?-RESIDENT MAINLINES 7 
SsuBRouTINGES CSJEI 


*CAROICE OF METHOD: 


-SEE ». 5-25 USER'S HNDBXK. 
AND MASTER INDEX (E.ReL) 
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- 45) SIMT. MUST BE: 


PROGRAM » SUBROUTINE » FUNCTION) 
ALOCK DATA » APROUTINE » 
AP FUNCTION 


- LAST STMT. MUST BE END 


*RESTRICTIONS 
- NO 118-BIT DBL. PRECISION 


-~ RESERVED WORDS IF ASSY. SRC. 
OUTPUT OPTION USED (Cr.2-5] 


‘FEATURES 
- SYMBOL NAMES: 34 CHAR. MAX. | 
ALPHANUMERIC PLUS & AND — 


- RADIX: DEFADLT 1S DECIMAL 
MEX: Z°BA2’ 
OCTAL: O°F93’ 
BINARY: B’I1Q’ 


- ARGUMENT CONTROL STMTS. 
PURPOSE: REDUCE I/O 


APROUTINE 

APFUNCTION 

APIN L Host + AP | 
APOU | L AP Host] 


AP LO [Hosts AP | 
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oe AMPs 
APROUTINE GEN (X.¥.2) 
DIMENSION X(\8) -Y(a),2 (18) 
COMMON /IN/ CQ) 
COMMON /OUT/ D9) 
APIN /IN/) X(1O)> YB) 92 (1B) 
APOUT /OUT/ 


-EXAMPLE LDYNAMIC DIMENSIONS! 


APROUTINE GEN (X5Y,2.N) 
DIMENSION X(N) sY(N). 2CN) 


APIN XaY)N 
APOUT 2 
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-|F STARTS WITH SUBROUTINE oR 
FUNCTION : | 


PALL ARGS. *+LOMMON ARE 
TRANSFERRED BOTH WAYS 


- \F STARTS WITH APKOUTINE: 


°lIF IT ISNT DECLARED WITH 
APIN» APOUT> OR APTO,NO 
TRANSFER 


- IF STARTS WITH APFUNCTION: 
© UNDECLARED COMMON NOT 
TRANSFERED 
> UNDECLARED ARGS. HOST AP 


° FCN. KESULT XFERED BACK 
YO THE HOST 


“ADDITIONAL INIRINSITC FCNS. 


"PROVIDE STRING MAN\ PULATION + 
LOGICAL OPERATIONS 


> WORK ON GH-BIT DATA 
© LOGICAL: AND>OR> SHIFT »EQV> 


NEQV > COMPL 


© STRING: LOCoEXTRACT » INSERT 
- EXAMPLE: 


* YVIEW = EXTRACT (N(2115>20) 


-Appitiona Comeen Wirectives 


© CONTROL ASPECTS OF COMPILATION 
* PLACED IN COL. 1 OF APFINGH SRC.: 
SINSERT filename’ 
S LIST 
SNOLIST 
$ FOOTER 
SETECT 


© COMPILATION OPTIONS TAKE 
PRECEDENCE 


4¢ 


DATA TYPES: 


=: ee 
INTEGER KEAL 
COMPLEX DOUBLE PRECISION 
LOGICAL HOLLERIVH 
WORD | CHARACTER 


-INTEGER £#25%*4,*8] 


1D I 31 32 


‘Ze SAME AS (327 1 2's COMP. INTEGER 


-REAL [x4] 
%) IDul (2 63 


9. AARKRA ~ Aate 
ZS COMP. MANT 


\siGn BIT 


bias 
BIT 


ily 


- DDUBLE PRECISION LREALB ceal! 
° SAME FORMAT AS REAL 


- COMPLEX (48 0*16] 


© 2 CONSECUTIVE REAL NUMBERS. 
0 1°” WORD = REAL PART 


>» 2X* WORD = IMAGINARY PART 
- |OGICAL #15 #*25*45 -B] 


@ il 32 
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*SAME AS TRUE = 1 
BIT (32? FALSE =® 
- WORD 


@ 
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pO 


eRIGHT JUSIIPED 
oO: TAEEED 


u2 


- HOLLERITH +CHARACTER 
® 31 32 63 


CH4 1 CH2 ;cHD 1 CHY! CHS ‘CHO {CHF CHE 


© ASCII FORMAT 
© CHARACTER 35 @ FILLED 
Oo LMI! 


HOLLERIVH IS ASCII SPACE 


(O'4@) FILLED 
2 COMPILER OPTIONS: 

H4 = 4 cHAR./worD 

H8& : & cuar./word Loerautr] 


Oo 


ua 


| COMPILER DIAGS. 


~ PROVIDE SRC. LINE NUMBER> 
SEVERITY LEVEL® MESSAGE 9 
AND OPTIONAL DETAILS 


- 4 ERROR SEVERITY LEVELS: 


WARNING (w) 
ERROR (E) 
SEVERE  (S) 


TERMINAL (7) 


ay 


“OPTIMIZATION 


- AP INDEPENDENT OPTS: 

I. COMMON SUBEXPRESSION ELIM. | 
2. CONSTANT FOLDING 

do. DEAD CODE ELIMINATION 

4. INVARIANT CODE MOTION 

5. INDUCTION VARIABLE ELIM. 


- AP DEPENDENT OPTO: 
a. FUNCTIONAL UNIT SCHEDULING 


b. STRENGTH KEDUCTION 
c. REGISTER ALLOCATION 


d. SOFTWARE PIPELINING 


— OPTIMIZATION LEVELS 


® LOOKS AT EACH SRC. LINE 1 
ATA TIME. FASTEST. £19255") 


1 BASIC BLOCK = CODE W/SINGLE 


ENTRY +EXIT. LEVEL @ ON 
BASIC BLOCK +Lal 


LEVEL 1 ON ENTIRE PGM. 
ALSO £¢935+ SOME cope 


rearrangement (5) | 


“PIPELINER’. PERFORMS [4] 
ON “WELL BEHAVED’ LOOPS 


LEVEL 3 PLUS L4] 
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‘COMPILER OPTIONS 

1 - DEFAULTS ARE: CVAX/vMS SYNTAX] 
/OPT= 1 | 
/OBJECT 
/DIAGS = WARNING 

/ FAILURE = ERROR 

/ NOONETRIP 

/ XOFF = ALL 


“USEFUL OPTIONS 
Fits! 
/ CODE 
/APAL 


/ MAP 
/ DEBUG 


q> 


COMPILER OPTIONS 


- DEFAULTS ARE: LIBM/CMS SyNTAx}] 
OPT (4) 
OBJECT 
DIAG (WARNING! 
FAILURE (ERROR) 
H8 


- USEFUL OPTIONS: 


mie 

CODE 

APAL. 

MAP ( LEVEL) 
DE BUG 
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Mata Lisrary (APMATHGH) 


Frise ft bBobina LIBRA y 


p PURPOSE : 4 Toot WTR Rar y 
Corcection OF %50@ Optimizer 
Assy. LanGuage Routines 


» Use: 
CanaacE From APFTN64 
OR APAL64 

» [NDEX: 


-~ Cy. 85 APFINGY User's Guive 
- Cu. 2: APMATHG4 Part 4 
- App. Fs APMATHGH Part 3 


ua 


Mata Lisrary CAPMATHG4) 


eo Types OF Kovutines: 

- SCALAR 

- VECTOR 
Basic Mati 
VECTOR > SCALAR 
VECToR Comparisons 
Comerex ARITHMETIC 
Matrix Operations 
FFT S 
IIGNAL PROCESSING 
Sparse Mareix Operation. 
Apvancen Matn Function 


EFFICIENT APF IN64 PROGRAMS 


Avoid using loops with small iteration counts 
when compiling at OPT=3 or OPT=4. 


Use DO-loops, instead of IF and GOTO statements, 
in loops that can be pipelined. 


Use ONETRIP compiler option. 
Use APMATH64 routines if 
One routine can replace an entire loop. 
The iteration count of the loop is 68 or more. 


One math library intrinsic function can be used. 


St 


2. APLINKG4Y - INTRO. 


*PURPOSE 


LINK AND RELOCATE AP OBTECT 
CODE. 


“OUTPUT 
HASI — (Host-to-AP SIW INTERFACE! 
LOAD MODULE 


* INVOKATION 
Lvax/vm5] $APLINKGH pear es 
LIBM/cMS) APLINKGY “Name 


Exercise 1 


This exercise is designed to give you a chance to use the APFTN64 
language and compiler, to see differences and features of this product. 


1. Write an APFTN64 program called "WXYZ" which will solve the 
folowing equation: 


(( Xi * Yi ) + Wi) 
pi * sqrt(2) * i 
e W, X, Y, and Z each have 20 elements, and i 
varies from 1 to 20 


¢ This program should create data for W, X, and Y, 
using the following values: 


W: 1 £6.20... by> 
X: 2 to 40, by 2 
1 6 -to25,. by 1 


e Have your program display its results 


2% Compile the program 3 seperate times to get a chance to see what 
the various APFTN64 options do and become familiar with the 
syntax. Some possibilities are: 


Pass 1: LIST 
Pass 2: LIST, CODE, and opt. level 3 
Pass 3: DEBUG, APAL, LIST 


ce Use APLINK64 to create the load module. 


4. Use the following commands to execute your program. Substitute 
the name of the load module for XXXX in the command list below: 


SJE 

ATTACH/WAIT 

COPYIN/B 'XXXX' , PROG 
PROG 

DETACH 

QUIT 


$3 


Floating Point Systems, Inc., 
‘Corporate Training Department Materials 


System Job 


Executive 
(SJE) 


FPS-164 Software Programming Class 
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Processing of a complete user job on the FP. 

FORTRAN 77 1/0 and TERMINAL TO. 

I/O directly to host disk from an AP program. 

A Job Definition Language supporting user job control. 


File transfer between the host and FP file systems of 
both text and binary files. 


Permanent disk file system on the D64. The File 
Management System (MS) provides: 


x Separate user directories. 
x Access keys. 


Roll-in/Roll-out to provide sharing of the AP by 
several jobs. 


Recounting to record CPU time, total elapsed time, 
and number of disk I/0's for each job in the file. 
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* Sum = O4 KWoros 


* FMS STRUCTURE 


- 72 LeveL DIRECTORY STRUCTURE . 


WITH “SYSTEM” DIR. AT TOP» FOLLOWED 
BY USER DIRECTORIES 


- 3 CLASSES OF FILES: (?2-2] 
‘UNNAMED TEMPORARY 
¢ SEMI- PERMANENT 
* PERMANENT 


- FILE + DIRECTORY PROTECTION 
PROVIDED BY 2 OPTIONAL PASSWORDS 
CALLED “KEYS” (r.2-3] 


* READER KEY : Allows vead access 


* OWNER KEY : READ » WRITE. DELETE 1 
CREATE > RENAM _s 


~ TEMPORARY DIRECTORY CALLED 
ISCRATICH:§ CREATED WHEN ATTACHED 


‘Contains SEMI-PERMANENT FILES 

— FILES + DIRECTORIES CAN SPAN ACROSS 
DIH’s + BAD LOCATIONS 
*ROLL-IN /ROLL- OUT 3-255 v0 11 


- ALLOWS ROUND-ROBIN SHARING 
OF AP BY SJE +APEXGH JOBS 
- REQUIRES D-64 


MAX. OF 32 JOBS IN THE QUEVE. 
SIZE OF QUEVE + TIME SLICE ARE 


SITE-CHANGEABLE IN SITE PARAMETER 
FILE. 


- APEXGY + SIE JOBS TREATED THE SAME 


“ACCOUNTING (3-255,vo0.11 


— A DEH FILE CONTAINS INFORMATION 
ABOUT WHO USED THE AP CIN EITHER 
STE ok atextd MODE) AND: 

‘Attach Time QwWall Clock) 
Execution Time 


* No. of LIO Overations Performed 


~ Tne Fite . CALLED “!USAGEGY. | 
IS STORED AS BINARY DATA .AND | 
A TRANSLATION fGM. MUST BE 
USED TO READ 171. 


RP file names can be 1 to 128 characters in length 
(including directory names and keys). APP file names 
can contain any of the following ASCII characters: 


* letters (A...2) 
* digits (...9) 
* dollar sign ($) 


* period (. ) 
* underscore ( _ ) 
Colons are used to separate directories from file names, 


and keys are enclosed in parentheses. Lowercase letters 
are treated the same as uppercase. 
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* HOST I/O FILENAMING [52] 
- ResegveD names- “SINPUT” AND ‘ZOUTPUT 
- DEFAULTS: ANPUT=S ,:OUTPUT = 6 
- PREFINES: “SHOST?” Ano “: HOSTCHAR: 


- J5ED To REFER TO BINARY +cHAR- 
ACTER HOST RESIDENT FILES 


ATTach Wait] (/TMram] [mn] | 


* Attempt to become the current FP user. 
x S/Wait option - waits for an available FP. 


* /TMram option - specifies that Table Memory RAM is 
to be used in this job. 


* 'n' option - specifies a particular AP to assign. 


EXAMPLES: 
ATTACH Attach to any FP, but don't wait if 
none are available 
ATT/W 3 Attach only to AP number 3, and 


wait if it 1s not available. 


Gl 


COPYIn [Binary] CU/DRives=XY,...] <source_file>[,<dest_file>] 


= 


Copy a file from the Host's file ere: to the SJE 
file system. 


/Binary option - transfers a binary file. Text file 
transfers are the default. 


If the <dest_file> i185 not specified, then the 
<source_file> is used. 


SJE supports the transfer of sequential access files 
only. 


/DORives specifies up to 18 drives on the FPS-D64 Disk 
Subsystem to place the file on. "X", which has a 
value from 2 to 7, refers to the subsystem desired 
and "Y" refers to the drive on the desired subsystem 
with a value from g to 3. 


EXAMPLES: 


COPYIN HOSTTEXT. TXT Copy the Host text file, 


HOSTTEXT.TXT, to a new SJE 
file of the same name. 


COPYIYB MYPROG.IMG,GO Copy the host binary file, 


MYPROG.IMG to an SJE file 
named GO. 


Ge 


<Program> <Parameter List> 


* <Program> is the file name of the program to be executed 


* The parameter list may be empty. 


* Examples: 


MYPROG A,B ! Execute the user program in the image file 
! "MYPROG" which has been copied into the SJE. 
! Pass the Parameter List "A,B" as a string to 
IMYPROG 


COPY FILE1,FILE2. ! Execute a user-written utility 
! to copy FILE] to FILE2 on the AP. 
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COPYOUT [Binary] <source_filename> [, <dest_filename>] 


s Copy a file from the SJE file system to the HOST 
file system. 


x /Binary option - transfers a binary file. Text 
fiie transfers are the default. 


2 If the <dest_filename> is not specified, then the 
<source_filename> is used. 


* SJE supports the transfer of sequential access files 
only. 


EXAMPLES: 


COPYOUT LISFILE.LIS Copy the SJE text file, 
LISFILE.LIS, to a new HOST 
file of the same name. 


COPYO/B MY,MYDAT.DAT Copy the SJE binary file 
MY to a host file, MYDAT.DAT. 


CH 


DETach 


x Release the FP for use by other users. 


Fry files remaining in the 
time of a DETACH are lost. 


OS 


:SCRATCH: directory at the 


QUIT 


* Quit interacting with SJE and return to the host 
command level. 


x May be used whenever the user is not attached to the 


oo 


EXAMPLES: 


QUIT Quit interacting with SJE. 
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JDL EXAMPLE 


$ SJE 
SJE Version 1.0 


SJE> ATTACH/WAIT 
SJE-I-ATTACH, Assigned processor number: 1. 


SJE> COPYIN/BINARY MYPROG.IMG,MYPROG 
SJE-|-COPYIN, File copied in. 


SJE> COPYIN/BINARY DATAFILE1.DAT,DATAFILE 
SJE-!-COPYIN, File copied in. 


SJE> MYPROG 


[user interacts with the executing program "MYPROG"] 


SJE> COPYOUT/BINARY DATAFILE2, DATAFILE2.DAT 
SJE-I-COPYOUT, File copied out. 


SJE> COPYOUT LISTFILE,LISTFILE.LIS 


SJE-I-COPYOUT, File copied out. 
SJE> DETACH 


SJE> QUIT 
$ 
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SJE: Lab Exercise 1 


Purpose: 


This lab familiarizes you with the basic JDL command set in SJE, and in 
control and execution of a simple program under SJE. 


Tis Write a small host FORTRAN program which creates 3 FORMATTED data 
files. These files should each contain 25 real numbers which will 
be used by the "WXYZ" APFTN64 program written earlier. Suggested 
names for the files might be WDATA, XDATA, and YDATA, with the 
file type appropriate for your host (VAX = .DAT; CMS = DATA). 


lee Modify the host-resident mainline that you wrote earlier to expect 
the input data from the 3 files created in step 1, but the file 
names used in your OPEN statements should be WDATA, XDATA, and 
YDATA without any file types. Your mainline should also write the 
results of the program into a new FORMATTED file called ZDATA (no 
file type). 


Ee Use APFIN64 and APLINK64 to compile and link the modified WXYZ 
program. 


4. Use SJE to assign an AP, bring your load module and data files 
into the FMS, execute your program, and bring the results back to 
your host. 


Sie Visually verify that the file brought back to your host contains 
correct data. 


User Attention 


x User Attention is a host-dependent terminal operation 
which gains the attention of the SJE system for the 


purpose of typing a command. 
x Om the VAX, User Attention is @ control-c. 
* (BM/CMS: EITHER HIT ENTER OR PAL TWICE 


Only the ABORT, CONTINUE, and DEBUG/NOW commands may be 
used following the User Attention. 


After performing this operation, a 15-second delay can 
occur before SJE's attention is gained. 
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ABORT 


x Terminate the executing AP program. 


* Used following a User Attention. 


RBORT FPbort the program. 


CONt i mue 


* Resume execution of an interrupted AP program. 


The CONTINUE statement is used following a control- 
cor a FORTRAN PAUSE. 


CON Resume execution of the AP program. 


DEBug [/Now] 
x Irvokes the FPS irteractive symbolic debugger, 
APDEBUGS 4. 


x /NOW option - causes immediate execution of the 
Genugger. 


x /Defer option causes the debugger to gain control 
when the next program is loaded. /-Defer is the default. 
EXAMPLES: 


DEBUG SJE will run debugger when next program 
is loaded. 
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HOST CONVERSION UTILITIES 


OVERVIEW 


¢ Perform data conversion between Host and FPS-164 data formats. 
* Perform file conversion between Host and SJE file formats. 
¢ Conversion Utility use: 
1) Transfer binary (machine format) data from a file which was written 


using FORTRAN Unformatted WRITE statements; | 


2) Read the file on the destination system using the matching FORTRAN 
Unformatted READ statements. 


* The user can combine program calls to these utilities with Host |/O services 
to create Host files that can be transferred as binary files. 
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DATA AND FILE CONVERSION ROUTINES 


e Data conversion routines convert to and from the following types of data: 
* Host integers * HOST LOGICALS 
¢ Host real (floating-point) numbers © HOST CHARACTERS 
¢ Host double-precision numbers 
¢ SJE integers 
e SJE real (floating-point) numbers 


¢ File conversion routines convert FORTRAN Unformatted File records between 
Host and AP formats. 


© Conversion fKoutines In Uticity Liprary: 


VAX/vMS: LEPSJUTILGY.OLB 


TBM /CMS: UTILGYH TXTLIB 
IBM/MVS: FPS. UTIL 64 
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Conversion Process 
Host —sAP | 


Provioe AN 8208-BYTE| 


DATA BUFFER 


CALL INITIOB TO IN- 
ITIAL!ZE THE 8298- 
BYTE OATA BUFFER § 
OPEN AN OUTPUT DATA 
FILE 


CONVERT DATA USING 
DATA CONVERSION 
UTILITIES 


CALL PUTUR TO CREATE 
AN AP FORTRAN RECORD 
ANO PLACE IT IN THE 
8208-B8YTE DATA BUFFER 


AVE ALL THE RECORD 


BEEN PRO ’ 


CALL PUTEF TO WRITE 
THE LAST BUFFER AND 
THE £.0.F. RECORD INTO 
|THE OUTPUT DATA FILE 


CLOSE THE OUTPUT 
DATA FILE 
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~ Conversion Process 
AP —*Host 


PROVIDE AN 8208-BYTE 
DATA BUFFER 


CALL INITIB TO 

INITIALIZE THE 8208- 
BYTE BUFFER AND OPEN 
THE INPUT FILE THAT 
HAS THE OATA TO READ 


CALL GETUR TO READ 
A RECORD FROM THE 
INPUT FILE 


1S THE 


RECORD THE END 
6 . ? 


CONVERT THE RECORD 
USING HOST CONVERSION 
UTILITIES 


ARE THERE MORE 
RECORDS TO READ? 


CLOSE THE INPUT 
DATA FILE 


Conversion PROCESS 
© Contro. Routines 
IN| TOB 
INITIB 
PUTUR 
GETUR 
PUTEF 


© Au Are INTEGER 


FUNCTIONS 


" 


© Host #AP Routines 


FPHIZI 

FPHKZR 
FPHD2ZR 
FPHL2L 
FPHC2C 


CONVERSION PROCESS 


¢ AP ® Host Routines 
FPIZHI 
FPRZUHR 
FPKZHD 


FPLZ2HL 
FPCZHC 
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SJE: Lab Exercise 2 


Purpose: 


This lab familiarizes you with the host conversion utilities. 


Write a host program which creates an UNFORMATTED data file 
containing 10 integers, with values frrom 1 to 10. 


Write another host program which converts the data in the file 
created in step 1 to proper AP integer format. You will have to 
store the converted data in a new file. 


Write a short APFTN64 program which reads an AP file, squares each 
value, and write the results as real numbers to a new UNFORMATTED 
file which is created by this program on your host. 


Use SJE to copy the converted data and the AP load module to the 
AP and execute the program. 


Write another host program to convert the unformatted data file 
written from the AP. Verify that your programs work correctly. 


ACCESS <directory_name> 


* Set the currermt directory allowing access 
to 1% and the files in the directory. 


* The access given to the directory depends on the 
password specified within the <directory_name>. 


ACCESS : USER (SECRET) Change the current directory to 
:USER, specifying the password 
"SECRET". 


AC : SCRATCH: Change the current directory to 
the user's personal scratch 
directory. This directory is 
assigned to the user when 
connected to the AP. 


ACC (PWORD) : Set the current directory to 
the system directory. "PWORD" 
is its password. 


CHange [/foptions] <file_name> 


* Change the attributes of a file. 


* The attributes that can be changed are: 


RECTYP recerd type 

FILORG file organization 

FMT TYP format type 

EXTSIZE extent size 

MAXSIZE maximum size 

LENGTH record length 
EXAMPLE : 


CHANGE,/FILORG=SEQUENTIAL A.FIN Change the file 
organization of file 
"A.FIN" to sequential. 


Bet 


COpy Lroptions] <scource_name> <dest_name> 


x Copy files ardor directories from one place to 
another in the FP file system. 


* The file or files in the directory named by the 
<source_mame> are copied to the destination file 
er directory named by the <dest_name>. 


* No data conversion is performed on the copied file. 
The destination file is created with the same 
attributes as the source file except for the keys. 
These attributes of the destination file are 
assigned biank oumer and read keys unless the 
“KEYS, /OKEY, or /RKEY options are speci fied. 


* The destination directory must already exist. 


The following are the options for the COPY commard: 


/REp lace 


/KEYS 


/OKeysoumerkey 


/RKeysreadkey 


Specifies that if a destination file with the 
same name as a source file exists, the old 
file is replaced with the new file and its 
Existing files are not replaced unless the 
option is used. 


Specifies that all the files in the source 
directory are to be copied to the destination 
directory. Files of similar names are not 
replaced unless the /RE option is speci fied. 


Specifies that the source file's keys are 
to be used as the keys for the destination 
file. 


Specifies that the owner key of the 
destination file is assigned the simple 
string in “oumerkey”. 


Specifies that the read key of the 
destination file is assigned the simple 
string in “readkey". 


COpy Lfoptions] <source_name> <dest_name> 


x Copy files andor directories from one place to 
another in the AP file system. 


EXAMPLES: 
CO APILE :BACKUP:SF ILE Copy the file "AFILE” in the 
current directcry to the file 
“AF ILE” in the directory 
: BACKUP. 


COPY/REP :TIM:ONE :JOE:LEVEL1 
Copy the file "ONE" in the directory 
:TIM to file "LEVEL1" in the directory 
2:JOE, replacing it if it already exists. 


COPY/ALLYREPLACE :GEORGE: :SUE: 
After the copy statement is complete, 
the directory :SUE contains the files 
it already had ard all of the files 
from the directory :GEORGE. If :SUE 
had any file with the same name as 
any in :GEORGE, the files from :GEORGE 
overurote the files in :SUE. 


SH 


CReateLoptions] <file_name> 
* Create files or directories in the AP file system. 


* Options include: 


/OIrectory - Creates a directory with the name 
specified in <file_name>. 


/RKey=sreadkey - Assigns password readkey to allow 
read access to the created file or directory. 


/OKeysoumerkey - Assigns password oumerkey to allow 
owner access (read,write,delete,and change the 
attributes) of the created file or directory. 


/DRives= (XY,...) - Specifies D6é4 disk drives to use 
for file storage. The default is any subsystem and 
drive. % specifies the subsystem and can be an integer 
from 2 to 7. Y specifies the drive on the subsystem 
and can be and integer from g to 3. 


* Options valid only for files (not directories) include: 


Alzeesize - Specifies the initial size for the file 
as an integer from 1K to 2 (2##21)K. The default 


size is i8K words. 


/REctyp=type - Ivpe can be Fixed, Variable, or 
None. The default is None. 


/Fllorgsotype - Otype can be Sequential or Direct. 
The default is Sequential. 
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CReate Lroptions] <file_name> 


z 


s 


- 


Create files or directories in the PP file system. 


Options valid only for files (net directories) include 


/LEngth=reclen - Specifies the size of each record 
for files using a record structure. The default is 
is 8192 bytes per record. 


/MPxsize=emsize - Specifies the maximum size,in K words 
of the file. Amn msize of -1, the default value, 
indicates the maximum possible (2**21 K words) size. 


/EXtsizesesize - Specifies the file extent size. Esiz 
specifies the number of K words for each extension 

to the file. Default esize is one-fourth of the 

SIze attribute. 


EXAYPLES: 


CREATE FILE1 Create FILE! in the curremntiy accessed 
directory. 


CRYDIR (SYSPASSWD) :D1 Create a directory called 
:D1i, specifying the System Directory 
password “SYSPASSWD". 


CRYRE=F/FI=DIR & Create FILE1 with a fixed 

FILE record structure, and a 
direct file organization. 
"&" continues a line. 


a) 


DElete (YAL1] LVODIrectory] <file_1>,...<file_m 


* Remove the specified files or directories from the 
RP file system. 


* /PLI] option deletes all of the files in the 
specified directory. 


x /OlIrectory option indicates that a directory is to 
be deleted. The directory must be empty to delete. 


EXAMPLE : 

DEYALLYDIR : USER: Delete all the files in the 
directory :USER and delete 
the directory itself. 

DE DATA, :USER: JUNK Delete Data in the current 


directory and delete JUNK in 
the directory USER. 


Ct 


DIrectory Lvoptions] [<file>,...] 


Lists information concerning the specified files. If 
no file names are specified, all the files in the 
current directory are listed. Not for host files. 


The options for the DIRECTORY command are: 


s sATtributes - List all attributes of the speci fied 
files (subject to access rights). By default, 
only the file name is listed. 


* /O0Utput=<output_name> Output of the directory listing 
goes to <output_name>, 
imstead of to the terminal. 
<output_name> will be over- 


written, if it exists. 


q 
~~ It 6 


* /ONLY List only the directory amd not the files 
in it. 

EXAMPLES: 

OI List the current directory. 

OI : USER: List the names of all the files in 


directory :USER. 


DI : List all of the files and directories in the 
System Directory. 


DI/CUTsDIR.LISYATT & List all of the file attributes 
DATA.DAT, CLASS.C. for DATA.DAT and CLASS.CL. 
The listing is written to DIR.LIS. 
"&" Continues the line. 
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REName [/RKey=key] <old_name> [<new_name>] 
* Change the name andor read and ouner keys of the 
specified file or directory. 

x /RKey - Changes the old read key for <old_name> 
to key. Ouwmer access to the directory is required 
to change keys. 

x /OKey - Changes the old owner key for <old_name> 
to key. Oumer access to the directory is required 
to change keys. 


* <new_name> - Changes the name of a file. Oumer access 
to the file or directory is required. 


EXAMPLE: 


REN MINE URS Rename the file MINE, URS. 
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SEt L/ACCOunts=acctname] (PLIMNit=timelimit] 

* Set certain characteristics of the user job. 

* /Recount option - records the simple or quoted 
string in acctname in the job accounting file. 

* /Limit option - sets the value in timelimit to be 
the amount of AP CPU time, in seconds, allowed each 
program within a job before it 1s timed-out and 
aborted. The default is no time limit. 

EXAMPLES: 


SE/LIM=228 After 28 seconds, the job will be aborte 


“o 


SHow Lvoption] 


x Report information to the user. 
x /f€cess option - Show the currently accessed directory. 
* /DIsks option - Sives the status of the disks in system 
x /SLIMit option - Shows the AP CPU time limit. 
* /OUTput=<file_name> option - causes the information 

to be sent to <file_name> instead of the users terminal 


EXAMPLE: 


SH/AC List the current directory name. 


aI 


Type <file_name> 
x Print a text file to the terminal. 


* <file_name> is typed to the terminal. 


TYPE. -sUSER: TF ILE List the MYFILE in directory 
:USER: to the terminal. 


q2z 


SJE: Lab Exercise 3 


Purpose: 


comm) 


Use the conversion utilities 
Access files from various directories within FMS from SJE 
Experiment with more advanced JDL commands 


Supplies: ; - 

a. In your directory, a file called BDATA, which is UNFORMATTED 
and contains the values 5 to 50, by 5. 

Ds On the AP, in the directory :JRAB:, a FORMATTED file called 
ADATA which contains 10 reals (F5.2) ranging from 1 to 10, by 
de 


Write an APFTN64 program called VECTADD which will add the 2 files 
mentioned in step 1 together and create a third file called CDATA: 


a. ADATA resided in the AP directory :JRAB: 


b. BDATA will be converted into AP format and brought over to 
the AP with the name NEWDATA and placed in your scratch 
directory 


iC. VECTADD creates an UNFORMATTED file called CDATA containing 
the sums of each data pair in ADATA and NEWDATA 


Write a host program which converts the 10 reals in BDATA to 
proper AP format in a file called NEWDATA. 


Start up SJE and perform the following: 


a. Determine your current directory 

b. Create a new directory named the same as your login name 

ce Change your default to the new directory, and verify 

d. Copy NEWDATA from the host to your scratch directory without 
changing your default directory 

e. Reset to your scratch directory 

ie Determine the file attributes of NEWDATA 

g. Without bringing in your VECTADD load module, start it 
executing (think about the file naming syntax) 

he Bring CDATA out from the AP back to the host 

sa Delete the directory you created and any files that it might 
contain 

13 Detach and quit 


Write a host program to convert the 10 reals in CDATA to host 
format. Display the data to verify proper operation of all steps. 
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PREserve [parameters] [< input_speci fiers] 


* Save one or more AP files in one host file on the host 


* These files can later be restored to the AP file 
system using the RESTORE statement. 


* <input_specifier> lists one or more names of existing 
FMS files or directcries to be preserved. 


* If a directory name is specified, all files and 
directories in that directory are preserved. 


* A :SCRATCH: directory cannot be preserved. 


q4 


PREserve Lyparameters] [<input_speci fier>] 


* /FILe=:HOST:<host_file> - File will be preserved on 
host Disk, under tne name <host_file>. 


* /ID=<name> - <name> is the name stored with the 
preserve file for identification purposes. 


* /TREE - Save the currently accessed directory, 
including sub-directories. 


x /LIist[=list_file] - Write the name and length for 
each file saved to the file <list_file>. If 
<list_file> is omitted, the information is written to 
the user's terminal. 
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PREserve [/parameters] [< input_speci fier>] 


= 


x 


The following are closely related options: 


/TRPe=:HOST: <host_device> - File will be preserved on 
host tape drive, under the name <host_device>. 


/DENsity=dnum - Use in conjunction with the /ThPe 
option, where dnum is an integer that specifies the 
density of information in bits per inch of tape. 
The default is 1688 bits per inch. 


/SEGnumesnum - Use in conjunction with the /Tfre 
option, where snum is an integer that identifies 

the file's relative position on the tape. The 
preserve file is written as the first file on the 
tape, by default. More than one preserve file can 
be written on a single tape by specifying a different 
snum for each file. A single preserve file can span 
more than one tape. 
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PREserve [/parameters] [< input_speci fier>] 


EXAMPLE: 


The following example illustrates the use of ACCESS, 
PRESERVE and RESTORE. In this example, several FMS 
files are saved to a host disk file. 


PRESERVE -FILE=:HOST: DRA: [DIRECT1] PRESERVE! .DAT & 
/ID=MYFILES/LIST=:HOSTCHAR: PRESERVE! .LIS & 
FILES, FILEB,FILEC, FILED 


RESTORE,/F ILE=:HOST: DRAS: [DIRECT1] PRESERVE1.DAT & 
/ID=MYF ILES/REPLACE FILED 


ORAS: ([DIRECT1] PRESERVE1.DAT is a preserve file having 


MYFILES for an ID and containing the four FMS files 
FILEA, FILES, FILEC, and FILED. The output from 

PRESERVE is written to the file PRESERYE!.LIS in the 
user's default directory on the host. 


This RESTORE replaces the FMS file FILED with the 
FILED found in DRAS: [DIRECT1] PRESERVE1.DAT. 
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REStore [/parameters] [<output_speci fier>] 


* Restore FMS files and directories from a preserve 
file on the host created by the PRESERVE command. 


* /FILe=:HOST:<host_file> - <host_file> is the name 
of the disk file in which the files or directories 
specified by <output_specifier> were preserved. 
The /FILE parameter must be used when files are to 
be restored from host disk. 


* /ID=<name> - <name> is the name stored with the 
preserve file for identification purposes. The 
/ID parameter is required, amd must be the same 
name as was used when preserved. 


* /REPlace - Replace existing FMS files by versions 
found in the preserve file. 


* /LIst[xlist_file] - Write the name and length for 
each file restored to the file <list_file>. If 
<list_file> is omitted, the information is written to 
the user's terminal. 
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REStore [/parameters] [<output_speci fier>] 


x 


/TRPe=:HOST: <host_device> - File will be preserved on 
host tape drive, under the name <host_device>. 


/DENsity=sdnum - Use in coniunmction with the /TRRe 
option, where dnum is an integer that specifies the 
density of information in bits per inch of tape. 
The default is 1688 bits per inch. 


/SEGnum=snum - Use in conjunction with the /TAPe 
option, where snum is an integer that identifies 

the file's relative position on the tape. The 
preserve file is written as the first file on the 
tape, by default. More than one preserve file can 
be written on a single tape by specifying a different 
smum for each file. A single preserve file can span 
more than one tape. 


REStore [/parameters] [<output_speci fier>] 


EXAMPLE : 


The following example illustrates the use of ACCESS, 
PRESERVE and RESTORE. In this example, the entire 

Fie iS saved onto magnetic tape using PRESERVE and then 
restored usimg RESTORE. ACCESS establishes a right to 
the system directory. 


ACCESS (system_password) : 
PRESERVE /TAPE=: HOST: MTAS/ID=JAN. 91.1983/TREE 


ACCESS (system_password) : 
RESTORE /TAPE=:HOST:MTAS/ID=JAN. 91.1983 


TREE specifies the currently accessed directory to be 
saved, including all sub-directories. PRESERVE 
dynamically ALLOCATEs tape drive MTAS and MOUNTs a 
tape on it, if necessary. PRESERVE aborts if MTA 
carmmot be allocated. The user's console and the 
operators console both receive MOUNT requests at the 
time the tape should be physically placed on MTA. 
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REStore [/parameters] [<output_speci fier>] 


EXAMPLE: 


The following example illustrates the use of ACCESS, 
PRESERVE and RESTORE. In this example, the entire 

FMS is saved onto magnetic tape using PRESERVE and then 
restored usimg RESTORE. ACCESS establishes a right to 
the system directory. 


ACCESS (system_password) : 
PRESERVE /TAPE=:HOST: MTAS/ID=JAN. 81.1983/TREE 


ACCESS (system_password) : | 
RESTORE /TAPE=:HOST:MTAS/ID=JAN. 91.1983 


PRESERVE defaults the tape density to 1698 bpi and 
writes the preserve file as the first and only file 
on the tape. The ID, JAN. 91.1983, is kept in the 
preserve file header for identification in a RESTORE 
operation. 
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REStore [/parameters] [<output_speci fier>] 


EXAMPLE: 


The following example illustrates the use of ACCESS, 
PRESERVE amd RESTORE. In this example, the entire 

FMS is saved onto magnetic tape using PRESERVE and then 
restored usimg RESTORE. ACCESS establishes a right to 
the system directory. 


ACCESS (system_password) : 
PRESERVE /TAPE=:HOST:MTAS/ID=JAN. 31.1983/TREE 


ACCESS (system_password) : 
RESTORE /TAPE=:HOST:MTAS/ID=JAN. 81.1983 


RESTORE interfaces with tape drive MTAS. The first 
file on the tape must have an ID of "JAN. 81.1983" 

or RESTORE aborts. All FMS files and directories 
contained in the preserve file will be created and 
restored to FMS if they no longer exist. The REPLACE 
parameter can be used to replace existing FMS files 
with those found in the preserve file. 
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DEBUGGING 


@ 


APDEBUG64 


INTERACTIVE SYMBOLIC DEBUGGER 

ACCESS TO ALL USER-VISIBLE REGISTERS AND MEMORIES 
SET, CLEAR, AND EXAMINE BREAKPOINTS 

EXECUTE PROGRAMS IN SINGLE-STEP OR FREE-RUNNING MODE 
DISPLAY OF ELAPSED EXECUTION TIME 

ACCESS TO GLOBAL AND LOCAL SYMBOLS 


STAND-ALONE OR FORTRAN-CALLABLE 


INVOKING APDEBUG64 


@ THE AP comMPILATION SHOULD BE PERFORMED WITH THE 


DEBUG OPTION 


@ THe APLINK64 SHCULD BE PERFORMED WITH THE 


SYM OPTION 
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APSIM64 


_ ot ATION LIBRARY 

-LGAS AP SOFTWARE TO EXECUTE ON HOST 
FUNCTIONAL SIMULATION OF THE APEX INTERFACE 
DITWISE SIMULATION OF THE AP 


CAN BE LINKED WITH APDEBLG64 TO PROVIDE AN INTERACTIVE 
SIMULATOR WITHOUT USING THE AP 
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INVOKING APSIM64 


THE SIMULATOR IS SLOW SO IT IS INADVISABLE TO 
EXECUTE A LARGE AMOUNT OF FORTRAN CODE ON THE 
SIMULATOR 


THE ONLY CHANGE IN THE PROCESS IS TO DEFINE THE 
APSIM64 LIBRARY IN PLACE OF THE APEX64 LIBRARY 


VAX environment 


§ FORTRAN/DEBUG/NOOPT VMUL.HSI 
§ FORTRAN/DEBUG/NOOPT/LIST MAIN 
§ LINK/DEBUG MAIN, VMUL, - 

FPS : APDEBUG64.OLB/LIB, - 

FPS: APSIN64.OLB/LIB, - 

FPS :UTIL64.OLB/LIB 

$ EXIT 


IBM (MVS/TSO) environment 
LINK MAIN.OBJ,SUB.OBJ LOAD(MAIN.LOAD(MAIN)) FORTLIB + 


LIB('X64.S.IAPEX.LIB','X64.S.APDBUG.LIB',- 
'X64.S.APSIM.LIB','X64.S.UTIL.LIB') 
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APSIMGY /APDEBUGGY 
* PURPOSE 


Provine INTERACTIVE DEBUGGING + 
Software SIMULATION ENVIRONMENT 


- APDEBUGGH 
1, Uses THE HARDWARE 
29 ~AccesseD IN 3 WAYS: 
-~ STAND ALONE PGM (INDIIDUat RINS) 


— IN APEXGH MODE ,WHEN AP SUBROUTING 
IS CALLED 


—~ FROM DIE 


. APSIMG4 
|. Host RESIDENT BIT-WISE SIMULATION 
2. DIFFERENCES 


~ NO Tlo svPPoky 

~ UNAVAILABLE FROM SIE 

~ ONLY GYK Woers Maw Memory 
— Not qood for UDC mode 


1pt 


"ACCESS : APEXCGY Mode 


|. AUTOMATICALLY STARTED WHEN AP 
SUBROUTINE CALLED. SUBROUTINE 1S 
NOT EXECUTED. DATA, PGM. —& AP 


2. UPON EXIT , MAINLINE CONTINUES 

4. PROGRAM DEVELOPMENT STEPS: 
~ USE “DEBUG OPTION WITH APETN6Y 
~ use “SYM” OPTION WITH APLINKGH 


~ \JosTt LINK/LOAD With APDEBUGGCY 
ANDJOR APSIMGH LIBRARIES 


~ACCESS: STANDALONE 


| Oncy NEED LOAD MODULE CREATED 
BY APLINKGY * sYMBot TABLE 


2? YOU WILL NEED TO SET UP ALL AP 
REGISTERS JHEMORIES , ETC. MANUALLY 


-ACCESS: SJE 


|. SAME AS WITH APEXGH , ExCert NO 
Host LINKAGE \S PERFORMED 
2. CANNOT OSE APSIMGY 
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COMMANDS 


ACTIVATE Symeots+ SY mbol 


For SYMBOLIC DEBUGGING ,musT ACTIVATE 


l. 
SymBot. TABLE EACH TIME Apoline ALE wars 


1S ENTERED. | 
2. To ActwaTe SYMBou. TABLE > SYM 'Tilename 
4. AcTWATE LOCAL SYNBOLS : SYM entry point 
4 pisPLAy SYMBOL INFO - SYM 


»EXAMINE A VARIABLE : E xarnine 


USED TO LOOK AT AVARIABLE , REGISTER, 
OR MEMORY 
?. CAN LooK AT : 


[. 


( INDEX, ADATA(Z), ---) 


VARIABLES 
STMT. LABELS C .12@) 
Sec. LINE # ($20) 
ENTRY POINT 
REGISTERS +HENORIES 

3. SYNTAX: E INDEX 


Ee ADATACA): ADATA (AG) 
F 14): TG) => 10 


ACF 


‘CHANGE A VARIABLE: Deposit 


|. USed Jo CHANGE THe VALVE OF A 
VARIABLE REGISTER | OR MEMORY 


2. SYNTAX: D INDEX = 22 
Dp AvdATACA): ADATA(S) = 2.5 


- EXECUTE A PGM: Ron 


[. STARTS PROGRAM EXECUTION 
2. SYNTAX: RE ENTRYPOINT : 
35. WHEN PGM. COMPLETES oR STOPS, 


ELAPSED TIME IS SHOWN, BASED 
ON, 1G4 nsec, CLOCK 


- EXIT DEBUGGER: Quit 


[. IN APEXGH MODE , WILL RETORN TO 
MAINLINE PG@M. AND CONTINUE 


2. IN SJE ,WILL RETURN TO JDL 
COMMAND LEVEL 
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° SET BREAKPOINTS: Break 


Ae 


USED TO STOP PGM. EXECUTION AT 
A PARTICULAR POINT 

MAX. OF 2 BREAKPOINTS AT A TIME 
SYNTAX: 


B $42 (SRC. LINE 44) 
RB .2O CSTMT. LBL. 2G) 


B (DISPLAY BREAKPOINTS) 


OPTIONAL QUALIFIERS : 


/EVERY: eVvecy nt¥ time 

/ AFTER : n aftec times 
J/UNTIL:? 1 clear aftec W breaks 
/\F ( peeled break if TRUE 
EXAMPLES: 


pleverY:1 $13 
B/IE CYMIN -EQ. $4) 239 


111 


° SET WATCHPOINTS: Watch 


| used TO STOP PGM. EXECUTION WHEN 


A VARIABLE 1S ACCESSED 


A WATCHPOINT ALLOWED AT A TIME 
A SNNTAX: 


Ww TIDATE 


Yo QUALIFIERS : 


/KD wHenevee vAeIAaLE READ 
/NR WHENEVER VAR. 15 LORITTEN 
/RW WHENEVER VAR. 1S WRITTEN 
oR READ 
peFAvLT = /WR 


.. ANd Att OPTIONS WITH BREAK 
S. EXAMPLE 3S: 


W /1F (arTR(A) ce. AMAX)/RD = 2(28) 
W /RW OH OH (#) 


a1 


e CLEAR WATCHPOINTS 
AND BREAKPOINTS : Clear 


|. Used TO CLEAR WATCHPOINTS AND 
BREAKPOINTS 


2. SNNtax: 
C LDATE 
3. OPTIONS : 
$ ALL - all watch pots 


Qnd breakpoints 
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LAB: USING APDEBUGGY 
4. USE WxY2. PROGRAM WHICH 
CREATES DATA INTERNALLY. 


_ RECOMPILE WITH DEBUG” 
OPTION + BUILD SYMBOL TABLE 


. RDN VNDER STE AND: 


a. OPEN YOUR SYMBOL TABLE 

b. LIST ALL 2@ W vAweES W/2 cmp. 
Cc. CHANGE Y(C4) To 7.5 

D. CAUSE PGM. HALT WHEN Y(4) \5 

READ 

E. EXECUTE THE PROGRAM 

F. LIST ALL 2S with 4 COMMAND 
G. Exit APDEBUGGY + SJE 


Floating Point Systems, Inc., 
‘Corporate Training Department Materials 


Progeam Conversion 
To Use The 


FPS-164 


FPS-164 Software Programming Class 


19 


ELEMENTARY CONVERSION PROCESS 


DETERMINE WHERE THE PROGRAM IS TO BE DIVIDED, AND 
WHICH SUBROUTINE(S) ARE TO RUN ON THE FPS-164 


Use APFIN64 To COMPILE THE ROUTINES FOR THE 
FPS-164 


Use APLINK64 To PROVIDE LINKAGE AND DECLARE THE 
SUBROUTINE ENTRY POINTS FROM THE HOST PROGRAM 


INSERT Two APEX SUBROUTINE CALLS IN THE HOST 


pVwuUINeEN 


CALE-APINIT ‘C-INUM;: 070.0, IASG; -ISTAT). To 
INITIALIZE FPS-164 


AND 
CALL APRLSE TO RELEASE FPS-164 AFTER USE 


COMPILE WITH THE HOST FORTRAN COMPILER THE HOST 
PORTION OF THE PROGRAM AND THE HASI OUTPUT FROM 
APLINK64 


PERFORM HOST LINK OF ALL ROUTINES 


RUN THE PROGRAM USING THE FPS-164 AND VERIFY THE 
RESULT 
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See NRO, 


| * PURPOSE 


ACCESS TO AND CONTROL 
OF THE AP 


- SIMPLIST ACCESS METHOD | 


CALL APINIT (G20202Q01S>IN) 


CALL APPGM (+=) 
CALL APRLSE 


“MAINLINE” PGM. 


V1t 


BASIC _APEX64 CALLS 


® 


STATUS OF 
THIS CALL 
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SAMPLE PROGRAM PRIOR TO MODIFICATION 


I/O STATEMENTS 
COMMON BLOCK 


PARAMETERS 


PROGRAM MAIN 2 
COMMON /ARRY/ A(10),B(10),C(10),D(10) 
DO 100 I=1,10 


A(I) = FLOAT (1) 
B(I} = FLOAT (1) 
c(i) = FLOAT (1) 


100 CONTINUE 
WRITE (6,1000) I 
N = I-1 
CALL VMUL (N,APCPU1) 
WRITE (6,1010) D(N) 
CALL VSQ (N,APCPU2) 
APCPU = APCPU1 + APCPU2 
WRITE (6,1020) APCPU 
WRITE (6,1030) (D(J), J=1,10) 
STOP 
1000 FORMAT (' LOOP COUNT =',13) 
1010 FORMAT (' LAST TERM OF COMPUTED ARRAY =',F10.4) 
1020 FORMAT (' TOTAL FPS-164 TIME =',F8.4) 
1030 FORMAT (5(2X,F10.4)) 
END 


SUBROUTINE VMUL (N,APCPU1) 
COMMON /ARRY/ A(10),B(10),C(10) ,D(10) 
DO 100 I=1,N 


D(I) = A(I)*B(I) + C(I) 
100 CONTINUE 
RETURN 
END 


SUBROUTINE VSQ (N,APCPU2) 
COMMON /ARRY/ A(10),B(10),C(10) ,D(10) 
DO 100 I=1,N 


DCI) = D(I)*D(1) 
100 CONTINUE 
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SAMPLE PROGRAM AFTER MODIFICATION 


@ INSERT APEX catts (APINIT AND APRLSE) 
 ) INSERT I/O To VERIFY AP CONNECTION 
@ REQUIRES TWO CALLS To THE FPS-164, HENCE INEFFICIENT 


PROGRAM MAIN 
COMMON /ARRY/ A(10),B(10),C(10),D(10) 
DO 100 I=1,10 
A(I) = FLOAT (1) 
B(I) = FLOAT (I) 
C(I) = FLOAT (I) 
100 CONTINUE 
WRITE (6,1000) I 
N = I-1 
WRITE (6,9997) 
READ (5,9998) INUM 
9997 FORMAT (' APNUM =') 
9998 FORMAT (I1) 
CALL APINIT (INUM, 0, 0, 0, IASG, ISTAT) 
IF (IASG .EQ. 0) STOP 
WRITE (6,9999) IASG, ISTAT 
9999 FORMAT (' IASG =',1I3,' ISTAT =',I6) 
CALL VMUL (N,APCPU1) 
WRITE (6,1010) DCN) 
CALL VSQ (N,APCPU2) 
APCPU = APCPU1 + APCPU2 
CALL APRLSE 
WRITE (6,1020) APCPU 
WRITE (6,1030) (D(J), J=1,10) 
STOP 
1000 FORMAT (' LOOP COUNT ="',I3) 
1010 FORMAT (' LAST TERM OF COMPUTED ARRAY =',F10.4) 
1020 FORMAT (' TOTAL FPS-164 TIME =',F8.4) 
1030 FORMAT (5(2X,F10.4)) 
END 
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SAMPLE PROGRAM AFTER REDUCING I/0 


A NEW SUBROUTINE 1$ CREATED THAT CALLS THE TWO 
SUBROUTINES AND PASSES THE DATA FOR I/O AS A 
PARAMETER LREDUCES L/O AND APEYLY OVERHEAD] 


THE HOST PROGRAM IS MODIFIED TO WRITE THE I/0 DATA 
FROM THE FPS-164 
PROGRAM MAIN 


COMMON /ARRY/ A(10),B(10),C(10),D(10) 
DO 100 I=1,10 


A(I) = FLOAT (I) 
B(I) = FLOAT (I) 
C(I) = FLOAT (I) 


100 CONTINUE 
WRITE (6,1000) I 
N = I-1l 
WRITE (6,9997) 
READ (5,9998) INUM 
9997 FORMAT (' APNUM =') 
9998 FORMAT (I1) 
CALL APINIT (INUM,0,0,0, IASG, ISTAT) 
IF (IASG .EQ. 0) STOP 
WRITE (6,9999) IASG, ISTAT 
9999 FORMAT (' IASG =',I3,' ISTAT =,16) 
| CALL SUB (N,APCPU,PARM) 
| WRITE (6,1010) PARM 
WRITE (6,1020) APCPU- 
WRITE (6,1030) (D(J), J=1,10) 
STOP 
1000 FORMAT (‘' LOOP COUNT =',I3) 
1010 FORMAT (' LAST TERM OF COMPUTED ARRAY =',F10.4) 
1020 FORMAT (' TOTAL FPS-164 TIME =',F8.4) 
1030 FORMAT (5(2X,F10.4)) 
END 


SUBROUTINE SUB (N,APCPU,PARM) 

COMMON /ARRY/ A(10),B(10),C(10),D(10) 
CALL VMUL (N,APCPU1) 

PARM = D(N) 


CALL VSQ (N,APCPU2) 
APCPU = APCPU1] + APCPU2 
RETURN 

END 
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SAMPLE FPS-164 SUBROUTINE MINIMIZING I/O 


Uses APROUTINE Lok APFUNCTION J 


VARIABLES ARE DEFINED AS EITHER IN or OUT 


APROUTINE SUB (N,APCPU, PARM) 
COMMON /ARRY/ A(10),B(10) ,C(10) ,D(10) 
APIN A,B,C 

APIN N 

APOUT D 

APOUT APCPU, PARM 

CALL VMUL (N,APCPU1) 

PARM = D(N) 

CALL VSQ (N,APCPU2) 

APCPU = APCPU1 + APCPU2 
RETURN 

END 
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HOST COMPILE AND LINK 


fe COMPILE MAINLINE + HAST} 


fe LINK OBJECTS/TEXT WITH | 
| FPS-Suprerien LIBRARIES: 


- HARDWARE RUN: APE X64 
UTILG4 


- HARDWARE DEBUG: APDEBUGEY oe 
APEXG@4 ty 
UTILGH [25 

-SiutatoR Run: APSIMeY [Le” 
UTILE4 | 

SIMULATOR DEBUG: APDEBUGEY | 


APSIM64 
UTILE4 | 


APEX64 Exercise 


This exercise is designed to let you convert an existing program to run 
in APEX64 mode. 


be 


Modify the APFTN64 program "WXYZ" (written earlier) to be called 
as a subroutine from a FORTRAN program executing on your host 
machine. 


e W, X, Y, and Z each have 20 elements, and i 
varies from 1 to 20 

¢ Use APROUTINE to declare the entrypoint 

e W, X, and Y are passed from the host in a 
COMMON block called DATAIN 

¢ 2Z and a number representing the length of 
each vector are passed as arguments to WXYZ 


Use APFTN64 to compile the WXYZ subroutine. 

Use APLINK64 to create the load module and the HASI. 

Write a mainiine program which wiil execute on your host and call 
the subroutine WXYZ. In this mainline, create the input values 
for the vectors W, X, and Y. Also include the necessary APEX64 


calls to assign and release the FPS-164. 


Compile the mainline and the HASI using your host's FORTRAN 
compiler. 


Link the compiled mainline and HASI together and search the FPS 
supplied libraries for the APEX64 subroutines: 


e VAX/VMS: $ LINK main,hasi,FPS164:APEX64/L,UTIL64/L 
® IBM/CMS: GLOBAL TXTLIB APEX64 UTIL64 


Execute your complete module. 
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ADDITIONAL TECHNIQUES 


COMMON BLOCKS 


ALL COMMON BLOCKS USED IN BOTH AP ROUTINES AND THE 
THE HOST PROGRAM MUST BE DEFINED IN THE SUBROUTINE 
CALLED DIRECTLY FROM THE MAINLINE PROGRAM. 

EXAMPLE: 


- HOST PROGRAM 


COMMON /A/. . 
COMMON: 7 BY? ue e-<3 
COMMON. FEL x. at i 


CAL. APINC Cia) 
CALL FPS164 
CALL APRLSE 


STOP 


- AP ROUTINES FPS164 
SUBROUTINE FPS164 SUBROUTINE SUB 
COMMON wf TB cs 
CALL SUB 


RETURN 
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RPETHRN 


ADDITIONAL TECHNIQUES _ 


@ EQUIVALENCE STATEMENTS | 


TWO OR MORE DATA TYPES CANNOT BE MIXED IN 
AN ARRAY THAT IS TRANSFERRED TO/FROM THE AP 


THE HASI CAUSES THE TRANSFER OF THE WHOLE 
ARRAY AS ONE DATA TYPE. 


@ UNINITIALIZED DATA 


THE APFIN64 COMPILER DOES NOT INITIALIZE THE 
DATA IN ARRAYS. 


@ LITERALS 


PARAMETERS IN SUBROUTINE CALLS FROM THE HOST 
TO THE FPS164 SHOULD NOT BE PASSED AS LITERALS 
I.E, CALL SUB (1,A) SHOULD BE REPLACED WITH 

IA = 1 
CALL SUB (IA, A) 
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INTERPRETATION QF ERROR MESSAGES 


DOUBLE ERROR DETECT 


DOUBLE-BIT PARITY ERROR DETECTED 


LOAD MODULE ID’s DO NOT MATCH 


THE IMAGE FILE (LOAD MODULE) ID AND HASI 
ID ARE NOT THE SAME - DUE TO NEW APLINK64 
AND FAILURE TO RECOMPILE HASI 


INVALID I/0 CHANNEL 


THE FPS-164 WAS NOT ASSIGNED'TO THE USER 
- NO APINIT IN HOST PROGRAM 


INSUFFICIENT MAP REGISTERS 


TOO MANY PARAMETERS/ARRAYS FOR MAP REGISTERS 
IN THE HOST(VAX) 
- CANNOT BE FORESEEN BY USER 
- USE APEX ROUTINE 
CALL APSETS (¢ - ) 


HISP DETECTED ERRORS 


GENERALLY A HARDWARE PROBLEM EXISTS 
- POSSIBLE SOLUTION IS TO FORCE STEP 
MODE BY AN APEX SuBROUTINE 
- CALL APMODE (2) 
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INTERPRETATION OF ERROR MESSAGES 


FORMAT OVERFLOW/UNDERFLOW 


THE DATA TRANSFERRED BACK TO THE HOST 
EXCEEDS THE DYNAMIC RANGE OF THE HOST 
COMPUTER FORMAT 

THE MESSAGE CAN BE MASKED BY AN APEX 
SUBROUTINE 

CALL APWUCM ( - --  ) 


DEVICE NOT IN CONFIGURATION 


HOST OPERATING SYSTEM IS NOT AWARE OF 

THE FPS-164 

---X64 MANAGER IS NOT ACTIVE ON THE 
HOST (VAX) 


INSUFFICIENT PS FOR LOAD MODULE . 


WARNING MESSAGE ONLY 
INFORMS USER THAT APEX IS REALLOCATING 
THE AP MEMORY TO SUIT THE USER PROGRAM, 


ARRAY OUT OF BOUNDS 


SUBSCRIPT CHECKING WAS PERFORMED AND 
FOUND AN ARRAY ADDRESSING ERROR, 


PROM HAS DETECTED ERRONEOUS... . CHNSP) 


THE RESULT OF A MISMATCH OF THE DATA 
TYPES BETWEEN THE HOST COMPUTER AND 

THE AP 

---INCONSISTENT USAGE OF DOUBLE PRECISION 
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TIMING PROGRAMS ON THE FPS-164 


APEX ROUTINE CAN ACCESS REGISTERS IN THE FPS-164 
FROM THE HOST COMPUTER, 


EXAMINE HARDWARE CYCLE COUNTER 


DIMENSION JA (2) 

CATS PEXAM:. “ClAg 385.252) 
IA IS THE RETURNED VALUES 
38,232 ARE PARAMETERS SPECIFYING THE 
HARDWARE CYCLE COUNTER 


EXAMINE THE USER ELAPSED TIME COUNTER 


DIMENSION ISA(2) 

CALL APEXAM (ISA, 12, Q) 

ISA IS THE RETURNED VALUES 

12, 0 ARE PARAMETERS SPECIFYING THE 
USER CYCLE COUNTER 
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TIMING PROGRAMS ON ThE FPS-164 


SYS$CLTIME AND SYS$RDTIME / 


SYS$CLTIME CLEARS USER SOFTWARE TIMING 
REGISTERS 

SYS$RDTIME READS USERS ACCUMULATED TIME 
FROM SOFTWARE REGISTERS 


EXAMPLE: 


100 


SUBROUTINE VMUL (N,APCPU) 


COMMON /ARRY/ A(10),B(10),C(10) ,D(10) 
CALL SYSSCLTIME 
DO 100 I=1,N 

D(I) = ACI)*BCI) +C(T) 


CONTINUE 

CALL SYSSRDTIME (CYCLES ) 

APCPU = © 0.181818E-06*CYCLES 
RETURN 

END 
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LAB: USING TIMING UTILITIES 


41. MODIFY ‘wxY¥2” To 
INCLUDE AP-RESIDENT | 
TIMING ROUTINES. 
DISPLAY EXECUTION TIME,| 


2. RECOMPILE AT DIFF. 


OPT. LEVELS TO SEE IF 
EXECUTION TIMES 
CHANGE. 


a 
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Floating Point Systems, Inc., 
Corporate Training Department Materials 


AP EXECUTINE 


( APEX64) 


FPS-164 Software Programming Class 
Revision 
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Primary Functions of Apex 


@lnitialization of AP 
@FPelease of AP 
@FExecution of HASI 
@Primitive access tea AP 


eLebuseing Supeert 
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APEASSUM INTERACTION 


® APEX64 initializes task contre 
tables in SUM memory. 


@ APExX64 sends commands te SLUM t: 
*xAllecate memory 


xotart presram running. 
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SUM-APES INTERACT ION 


6 SUM commands HISP te dsc i 
St when task completes. 


od 


@S5UM receives contreal on FT 
PAUSE and STOP, 


®Under SUM, AP never physically 
halts. | 
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Processor > 


— 


© PURPOSE: 
Repuce Host OverHEAD 


® Actiitles: 
-Appress IRANSLATION 
- Setup DMA Channers 
- Format Data Durina DMA 
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SYSTEM ELEMENTS 


7 
Leos ] 


SJE 


13 


DATA Descriptor Brock 


© DEFINITION: 


A HISP-VESIDENT CHANNEL 
PROGRAM USED TO CONTROL 
DATA TRANSFERS 
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CHANNEL PROGR 


© DEFINITION: 
 BunbLinG TOGETHER A 
series OF I/O cas 
e PURPOSE: 
Repuce Host OVERHEAD 


HOST FPS-104 
MEMORY MEMORY 


DEFINITIONS: 


APEA6 4 EXECUTION. MODES 
® step mode 


® Chain mode 
@® Autematic mode 
Ssubstep threshold 


Lhaining threshold 


Susster Move 
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~APEX64 EXECUTION MODES 
@ Mode contrel (APMNODE) 


@® Mode reporting (CAPGMOD) 
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APLINKG4 


e PuRPOSE: 


Process APFINGY + APALGH 
OUTPUT + COMBINE WITH 
PRIVATE + FPS- SUPPLIED 
AP OBJECT LIBRARIES 


o FuNCcTIONS: 
- MEMORY SPACE ALLOCATION 
~RESOLVE EXTERNALS 


~CopeE RELOCATION 
AHL 


APLINKG4 


© OUTPUT: 
-For APEXO4-movE svuB- 
ROUTINES crReATES HAST 
— CREATES LOAD MODULE FOR 


BOTH APEXGH-move + SIE 
SUBRODOTINES 


~ QOPTIONAL LOAD MAPS AND 
SYMBOL TABLE 
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Host-to- AP 
SOFTWARE I NTERFACE 


(HAST) 
e PURPOSE : 


Provines Hos7/AP SOFTWARE 
Communication Ann ContRoL 


e 2 TYPES: 
ADC + UDC 


ADC Wo. UDL HAST 


Data. transfer betweer the 
hest and the AP: 


building DORs 
executing DDBs. 
Load module loading. 


Lead module aKecuricon. 
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Avto- Directed CaLis 
(ADC) 


e Attows AP Svusroutines lo 
Be Treaten Like Noamar 
ORTRAN SvuBROUTINES 


e Att Data TRanseer Avtomartic 


e Host/AP Execution 1s 
SERIAL Ann SYNCHRONIZED 


© Useo By SIE Ann APEXG4 
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ADC Mode HASI for an APFTN64 Subroutine 


SUBROUTINE VADDAPF (AO, Al, A2, 43) <-———————— HOST CALLABLE ENTRYPT. 


c 
REAL A0(100), A1(100), A2(100) 
INTEGER A3 
C (08) 
INTEGER A4(6), A5(66) 2 ee 
c ad 
(CALL VADDAP poppet 
feat APIDB (AS, 65) wt So 
| AG(1) = 4 
A4(2) = 16 * | 
A4(3) = A4(2) + 100 Main Memocy 
- A4(4) = A4(3) + 100 Address Servo 
AG(5) = A4(4) + 100 
AG(6) = A4(5) + 1 F icpipit 
CALL APBDD (A5, A4, 5, 0, 11, 2, 1, 1) puree vata PEN 
pre yee yrame eT Oo 


CALL APBDD (A5, AO, 100, 0, A4(2), 2, 5% 1) 
CALL APBDD (AS, Al, 100, 0, A4(3), 2, 5, 1) 
CALL APBDD (AS, A2, 100, 0, A&(4), 2, 5, 0) 
CALL APBDD (AS, A3, 1, 0, A4(5), 2, 0, 1) 
TRANSFER ARGS. 


CALL APPREP (A5, 8, 11, A4(6), 0) +o — Common AND DATA. 
\CALL APXDDB (A5, 1, 1) 2 


ee APWR AND START SUBRTN. 
CALL APXDDB (AS, 0, O)q@J—_ 
‘ az — RETRIEVE RESULTS 


SUBROUTINE VADDAP ( 


INTEGER AQ(2), Al(9J), 42(134) 


c 
DATA AO( 1)/ :11143564551 /, AOC 2)/ :37737777306 / 
Cc 
DATA Al( 1)/ :00000000111 /, AlC 2)/ :00000000137 / 
DATA Al( 3)/ :00000000126 /, Al( &4)/ :00000000101 / 
DATA A1( 5)/ :00000000104 /, Al( 6)/ :00000000104 / 
DATA Al( 7)/ :00000000101 /, Al¢ 8)/ :00000000120 / 
DATA A1( 9)/ :00000000106 / 
c 
CALL APLMLD (5, Al, 9, AO, A2) <-——— TRANSFER LOAD MODULE 
RETURN 
END 


Aut 


User Directeo Carts 
(UDC) 


GreaTER Frexieuity OF ControL 
Mainuine More Comecex 


Host/AP Execution 15 
Asyncnronous Ann PARALLEL 


ADVANTAGE : 


May Repuce Overaue 
Pam. Execution lime 
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UDC Mode HASI 


SUBROUTINE VADDUDC (AO, Al, A2, A3, A4, AS, A6) <———_ ENTRY POINT 


INTEGER AO 
INTEGER Al, A2, A3, A&, AS, A6 


INTEGER A7(8), A8(50) 


CALL VADDUD 

CALL APIDB (A8, 50) 
A7(1) = 7 

A7(2) = AO 

A7(3) = Al 

A7(4) = A2 

A7(5) = A3 

A7(6) = AG 

A7(7) = AS 

A7(8) = A6 


CALL APBDD (A8, A7, 8, 0, 0, 2, 1, 1) 
TRANSFER ARGS. 
CALL APPREP (A8, 2, 0, 8, 0) <¢—————____ AND START Sup. 


CALL APXDDB (A8, 1, 1) 
RETURN 

END 

SUBROUTINE VADDUD 


INTEGER AO(2), A1(11), A2(38) 


DATA A0( 1)/'10574766357'0/, AOC 25/7 12620242117'0/ 

DATA Al( 1)/'00000000126'0/, Al1( 2)/'00000000101'0/ 

DATA Al( 3)/'00000000104'0/, Al( 4)/'00000000104'0/ 

DATA Al( 5)/'00000000125'0/, Al1( 6)/'00000000104'0/ 

DATA Al( 7)/'00000000103'0/, Al¢ 8) / ‘00000000056 '0/ 

DATA Al( 9)/'00000000111'0/, Al( 10)/'00000000115'0/ 

DATA Al( 11)/'00000000107 '0/ | 

CALL APLMLD (5, Al, 11, AO, a2) q@—____ ss TRANSFER LOAD 
RETURN 

aes MODULE 
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THE UDC MAINLINE 


14. Dimension 2 Integer ARRAYS 
For The DDB’sS 


2. Set Up MD AbpRESSES 


Oo. LInimauze Host AP DDB 
With APIDB 


4. Initiauize AP With APINIT 
OQ. Force Step Move With APMO 


©. Create DDBS To Transrer 
Data To Tre AP With APPU' 
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THE UDC MAINLINE 


t Execute The DDB With APADDB 
3. Syncnronize Witn APWD 


4. Cac. Tae AP Susrovtine 


QO. Perrorm Host Activity. Use 
APWR + APWD To SyYNcHRonize 


|. Setup AP-Host DDB With 
APIDB 


2. Create DDB'S To Teansrer 
~ Data Back lo The Host With 
APGET 


GA 


THE DDC MAINLINE 


13. Execute tae DDB Wirn APADE 


IY. Syncweonize With APWD - 
I5. RKevease Tue AP Witn APRLS! 


aqngaa 


aqgaanand 


Mainline Calling a UDC Mode Routine 


FORTRAN mainline program to call the UDC mode APAL 
routine VADDUDC. 


DIMENSION A(100) ,B(100) ,C(100) 
INTEGER AINC,BINC,CINC,CTR 


Now set up matricies to contain the data descriptors 
for data transfer. The matricies must be of type 
INTEGER and the size to specify is determined as: 

( 4 * no. of APPUT's or APGET's) + 6 


INTEGER INDDB(30) ,OUTDDB(10) 


Create dummy values for’the A and B matricies - °°” 


CTR = 100 

DO 10 1=1,CTR 

ACI) =I Oe ue 
Bil), s. CCIR ae ee 
CONTINUE | 


Setup element increments 


AINC = 1 
BINC = 1 
CINC = 1 


Now setup the main memory addresses for each parameter 
passed over to the AP164. Where we chose to start the 
addresses is purely arbitrary. 


IAPTR = 10 

IBPTR = IAPTR + 
ICPTR = IBPTR + 
ICTR = ICPTR + 
IAINC = ICTR + 
IBINC = I[AINC + 
ICING = IBINC + 


Assign the AP164 


CALL APINIT(0,0,4096,4096,INUM,ISTAT) < STEP 4 


Force STEP mode for UDC mode execution 


CALL APMODE (2) 
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100 


_ pe Gali the APAL subroutine 


Mainline Calling a UDC Mode Routine 


Setup the calls to transfer the data over to the AP 


¢ 


CALL APPUT(INDDB,A,IAPTR,CTR,5) 

CALL APPUT(INDDB,B,IBPTR,CTR,5) 
CALL APPUT(INDDB,CTR,ICTR,1,0) 

CALL APPUT(INDDB,AINC,IAINC,1,0) 
CALL APPUT(INDDB,BINC,IBINC,1,0) 
CALL APPUT(INDDB,CINC,ICINC,1,0) 
CALL APXDDB (INDE , 0, 1) 


Wait. until the DMA is Ce 


CALL ‘APWD 


CALL VADDUDC(IAPTR, IBPTR, i, ICTR, BENG IBINC. , ICING) 


Take ddvantaze of UDC mode by ies the fost per Fors some 
I/O to the terminal while the AP subroutine is busy. 


tro 101) (I, ue BCI), 


By 


TENG ASI A LY LOG Stet 3 


CALL APIDB(OUTDDB, 10) 
CALL APGETC(OUTDDB ,C,ICPTR,CTR,5) 
CALL APXDDB(OUTDDB,0,0) 

Wait until the DMA is complete » 
CALL APWD 
Release the AP164 ~ 
CALL APRLSE 

Now display the results 
WRITE(6,100) (ACI),BCI),C(1I),1I=1,CTR) 
FORMAT (100(3(F5.1,3X),/)) 


CALL EXIT 
END 
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COMPARISON: 
ADC “VS~ UDC 


oS cel 


Be oTH USE. Tue H IAS 51 | 


> Both Attow Disk OR Neue 
Resient Loan Monvies | 
» ADC Easter bo Devevor + USE 


» UDC May Execute. Fastee, Ir 
Pom, PRoPeRiy Désienen 
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ds 


USE "WXYZ SUBROUTINE FROM 
PREVIOUS LABS 


REBUILD + CREATE A UDC HASL. 
INCLUDE TIMING SUBROUTINES AND 
GENERATE LISTINGS FRoM BOTH 
APEINGY + APLINKG4 

Rewrite Matnuine For UDC Mone, 
Use 10.000 AS MD BASE ADDR. | 


BUILD ALL PIECES + EXECUTE. 
IS A? SUBROUTINE EXECUTION 


TIME DIFFERENT THAN WITH THE 
ADC SuBRouTINE 2 


ASG 


JF FLOATING POINT 
| SYSTEMS, — INC. 
...the world leader in array processors 


CALL TOLL FREE (800) 547-1445 
Ex. 4999. P.O. Box 23489 (S 500), 
Portland, OR 97223 (503) 641-3151, 
TLX: 360470 FLOATPOIN BEAV 


